home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / lifemake.cpt / LifeMaker Demo.rsrc / LIF1_24892_Maltese < prev    next >
Encoding:
Text File  |  1991-07-16  |  214 b   |  12 lines
  1. RULE Maltese
  2.    VAR sum, new
  3. BEGIN  
  4.    sum := north[0] + south[0] + east[0] + west[0]
  5.    IF center[0] THEN
  6.       new := sum <= 3
  7.    ELSE
  8.       new := sum = 1
  9.    END
  10.    new := new + 2*center[0]
  11.    RETURN new
  12. END